home *** CD-ROM | disk | FTP | other *** search
/ Hope PC Multimedia SuperPack 2 / HOMEPC.iso / TAROT / DOWNLOAD / VT3.ZIP / C1.DXR / 00027_Button Array.final 1.ls < prev    next >
Encoding:
Text File  |  1995-11-02  |  3.8 KB  |  137 lines
  1. on mouseDown
  2.   global MH, MV, Opt, Cnt
  3.   set Opt to the optionDown
  4.   set Cnt to the controlDown
  5.   set MH to the mouseH
  6.   set MV to the mouseV
  7.   if (MV < 437) or (MV > 472) then
  8.     return 
  9.   end if
  10.   set S1 to 6
  11.   puppetSound("Slide-In")
  12.   updateStage()
  13.   puppetSprite(S1, 1)
  14.   if (MH > 59) and (MH < 128) then
  15.     set the castNum of sprite S1 to the number of cast "Reveal.Press.On"
  16.     set the locH of sprite S1 to 90
  17.     set the locV of sprite S1 to 452
  18.   else
  19.     if (MH > 132) and (MH < 205) then
  20.       set the castNum of sprite S1 to the number of cast "Interp.press.on"
  21.       set the locH of sprite S1 to 169
  22.       set the locV of sprite S1 to 453
  23.     else
  24.       if (MH > 209) and (MH < 281) then
  25.         set the castNum of sprite S1 to the number of cast "voice.press.on"
  26.         set the locH of sprite S1 to 245
  27.         set the locV of sprite S1 to 452
  28.         if Opt <> 1 then
  29.           ToggleVoice()
  30.         end if
  31.       else
  32.         if (MH > 285) and (MH < 358) then
  33.           set the castNum of sprite S1 to the number of cast "sound.press.on"
  34.           set the locH of sprite S1 to 321
  35.           set the locV of sprite S1 to 453
  36.           if Opt <> 1 then
  37.             ToggleSound()
  38.           end if
  39.         else
  40.           if (MH > 362) and (MH < 436) then
  41.             set the castNum of sprite S1 to the number of cast "color.press.on"
  42.             set the locH of sprite S1 to 397
  43.             set the locV of sprite S1 to 454
  44.             if Opt <> 1 then
  45.               ToggleColour()
  46.             end if
  47.           else
  48.             if (MH > 438) and (MH < 511) then
  49.               set the castNum of sprite S1 to the number of cast "select.press.on"
  50.               set the locH of sprite S1 to 472
  51.               set the locV of sprite S1 to 454
  52.             else
  53.               if (MH > 515) and (MH < 585) then
  54.                 set the castNum of sprite S1 to the number of cast "depart.press.on"
  55.                 set the locH of sprite S1 to 551
  56.                 set the locV of sprite S1 to 453
  57.               end if
  58.             end if
  59.           end if
  60.         end if
  61.       end if
  62.     end if
  63.   end if
  64.   updateStage()
  65. end
  66.  
  67. on mouseUp
  68.   global MH, MV, moviePath, CCcards, mouseUp, DivType, Opt, CardsDealt, Cnt, DemoFrame, retMovie
  69.   set S1 to 6
  70.   if (MV < 437) or (MV > 472) then
  71.     return 
  72.   end if
  73.   puppetSound("Slide-Out")
  74.   set the locV of sprite S1 to -500
  75.   updateStage()
  76.   puppetSprite(S1, 0)
  77.   puppetSprite(25, 0)
  78.   if (MH > 59) and (MH < 128) then
  79.     if Opt then
  80.       keySound("BREVEAL")
  81.     else
  82.       reveal()
  83.     end if
  84.   else
  85.     if (MH > 132) and (MH < 205) then
  86.       if Opt then
  87.         keySound("BINTERPR")
  88.       else
  89.         puppetSound("DemoUnav")
  90.       end if
  91.     else
  92.       if (MH > 209) and (MH < 281) then
  93.         if Opt then
  94.           keySound("BVOICE")
  95.         end if
  96.       else
  97.         if (MH > 285) and (MH < 358) then
  98.           if Opt then
  99.             keySound("BSOUND")
  100.           end if
  101.         else
  102.           if (MH > 362) and (MH < 435) then
  103.             if Opt then
  104.               keySound("BCOLOR")
  105.             end if
  106.           else
  107.             if (MH > 438) and (MH < 511) then
  108.               if Opt then
  109.                 keySound("BSELECT")
  110.               else
  111.                 puppetSound("DemoUnav")
  112.               end if
  113.             else
  114.               if (MH > 515) and (MH < 585) then
  115.                 if Opt then
  116.                   keySound("BDEPART")
  117.                 else
  118.                   if DemoFrame = void then
  119.                     quit()
  120.                   else
  121.                     releaseSprites()
  122.                     if the controlDown then
  123.                       go("leave")
  124.                     else
  125.                       go("Bye")
  126.                     end if
  127.                   end if
  128.                 end if
  129.               end if
  130.             end if
  131.           end if
  132.         end if
  133.       end if
  134.     end if
  135.   end if
  136. end
  137.